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Editorial 
YeSeees it's finally here ' After the 
longest-ever delay, Issue 6 has 
finally arrived. Also, it's our 
Anniversary, although I'd prefer to 


have celebrated it in happier 
circumstances: 


PRIVATE 


SSeS 2 SET me 
ert 


magazine. 


CONTENTS... ISSUE 6 


Anyway, enough of the revelry - down 
to business» You should all have read 
my letter by now, and be aware that 
Enterprise Computers Ltd. no longer 
exists, and that the User Group is 
endeavouring to provide you with 
better support than Enterprise did. 
The first step towards this goal was 
taken at the very successful PCW Show 
(many thanks to all who showed up and 
talked to us), where we caught the 
attention of the computing press, and 
also provoked some very positive 
reactions from a number of software 
housess 


However, nothing will be achieved 
overnight, and you must be prepared to 
bear with us while things are sorted 
out. The first move must be one of 
intraspection, for we cannot continue 
in the chaotic manner in which the 
User Group has been run up to now - a 
J restructuring is necessary» Towards 
this end, there will be a meeting in 
the near future (date and venue to be 
confirmed in Issue 7), in which, in 
addition to seeing all the new 
software, you will be able to take 
part in the democratic process of 
Teorganising the running of the User 
Group. Until this moment, there has 
been no opportunity for anyone to find 
out how the User Group is run, or 
contribute any advice, other than by 
writing letters {to Mark or Tims Now 
will be your chance, if you wish it, 
to challenge our positions of ultimate 
power (and ultimate commitment ') and 
stand for election against us for a 
User Group post» A full list of items 
for discussion will accompany Issue 7, 
(approx four weeks away} and the 
Jminutes of the meeting will he 
published in Issue & 


Neil Blaber 


NEWS DESK > Dave Race looks back on a4 
year of Private Enterprise when most 
things almost certainly were not what 
they at first seemed. 
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Enterprise tries to get to gripe with 


users problems resulting from 
Enterprises receivership. 


PROGRAMMING) cet neavily into detach- 


able hoods, Pacial diseases and long 
tangled greecy hair when you break the 
basic boundries into machine code. 


SOFTWARE UPDATE) Two new Utilities 


emerge from Tim Boxes Boxsofrt Programs, 
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including the new Zzzip Basic Integer 10 
Compiler. 

ADVANCED PROGRAMMING) create your 

Own basic extensions (Strictly Por the 
Machine code mind) 12 


HOME PRODUCE» May the force be with 


your fingers when you start typing in 
this mega Database program. 16 
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As you must all know by now, 
Enterprise went into Receivership some 
little time ago; this was on the cards 
for some time, but was still a shock 
when it actually happened. It*s one of 
those things that always happens to 
other people - not someone you know 
personally. 


This sad turn of events will, of 
course, mean some changes to the 
magazine and User Group, as mentioned 
by Neil in his letter (which you 
should all have read by now !), 
although everything will keep going of 
course» One of the items likely to be 
in very short supply in the future is 
news - I used to make most of it up as 
it was ! Indeed, as of this moment, 
the only real news around is the 


=News Desk 


demise of Enterprise and rumours of 
the 320, an Amstrad basher which will 
probably never now see the light of 
day» 


So, I thought I‘d spend this issue 
looking back through the last five 
issues of the magazine at some of the 
successes and some of the failures of 
the last year and a bit. 


The 128 was launched and proved to be 
by far the more successful of the two 
models, offering a larger memory than 
any other home micro at that time and 
being considerably quicker that the 
6d. Enterprise signed a distribution 
deal with Terry Blood, billed by us as 
a "major step" - the contract seemed 
to last all of 10 minutes ! 


A vast number of hardware peripherals 
had already been produced for the 
machines, ise. a medium resolution 
monitor (soon to be phased out), a 
good quality dot matrix printer and a 
joystick interface, ah heady days ! 
Also, “in the pipeline", were a disk 
interface, later to become known as 
EXDOS (a truly excellent piece of kit) 
; and the much fabled Base Unit, which 
degraded into what became known as " 
that horrible piece of plastic that 
sits between me Enterprise and me 
Exdos", in polite circles: 


Software was coming in thick and fast 
- titles mentioned included 
Dambusters, Matchday, Seventh Seal, 
Super Pipeline II and Frank Bruno's 
Boxing, all of which have given us a 


of entertainment over the 
year» To be fair, of the 23 titles 
mentioned in issue 1, 14 did appear 
including such greats as BEATCHA and 
JACKS HOUSE OF CARDS. Finally, it was 
announced that the Enterprise 128 "had 
been selected for the Design Centre, 
an accolade only given to three other 
micros - the ZX81, the SPECTRUM and 
the BBC". Notice any connection 
between the four ? 


great deal 


Lots happening this issue ! 


Production of the two machines moved 
up to GRI Ltd in Scotland. Mr Twine of 
GRI described the Enterprise as "an 
excellent saleable product and (with) 
the soundest possible financial 
backing" (ho hum)» 


Enterprise set up business in Germany 
(and are still qoing ! - Eds), but 
lost their distribution link with 
Zappo. Zappo were apparently a little 
peeved at Enterprise signing up with 


Terry Blood - they shouldn't have 
worried. 
We were all getting over the 


excitement of running the Enterprise 
stand at the PCW show (I kid you not). 
In fact we managed to spend half of 
the news section extolling the virtues 
of just about everything we saw there; 
even the mouse and Speakeasy got a 
mention - well, one out of two ain't 
bad ! Surprisingly, just about every 
piece of software mentioned this issue 
got out ! 


=News Desk 


The issue with the cover Jeff Minter 
would have loved, and the record for 
the most misspellings of Gary's name - 
proof readers, who'd ‘ave ‘em ? 


The all-powerful McIntyre deal was 
disclosed.» This comprised of a couple 
of good value systems, one with the 64 
and one with the 128, to be sold mail 
order and backed up by a massive (the 
likes of which have never been seen 
before) advertising campaign» This 
seemed to consist of a series of " 
subliminal" adverts in Popular 
Computing Weekly (which included a 
wonderful misquote of Neil), anda 
couple of adverts in the national 
press around Boxing Day» I‘ve never 
been sure which had the greater impact 


Exdos units were available, as were 
internal RAM expansions» No external 
PRAM packs “until after Christmas". 


We started on the long slippery slope 
to providing you with a dedicated 
joystick (which Aztec never quite got 
round to letting us see), and the 
mouse and Speakeasy were once again 
very nearly with us ! 


19 software titles mentioned this 
time, many of which had been mentioned 
in issue 1, 8 of which never made it. 
I’m not counting "View to a Kill" in 
with that lot ! 


Guess what ? The mouse was nearly with 


us - ooh, the excitement ' See issue 
4°55 cover for a more realistic 
representation of the facts. I was 


happily singing the praises of Macro-D 
and Asmon this issue, which just goes 
to show you what an idiot I am, as 
neither has seen the light of day. 


Wimpy choose an Enterprise for their 
stand at the Ideal Home Exhibition, 
obviously not wishing to offend any of 
the major home computer manufacturers: 


Finally it was revealed that IS-DOS 
was to be pushed by I.S. as “an 
industry standard S-bit opperating 
system" and would be producing 
packages for it. J.$. were unavailable 
for comment on this (I wonder why ?)- 


Oh that front cover, if only we knew ! 


30% of this issue's news was taken up 
by a description of our second great 


meeting, which was admittedly a great 

success» That just qoes to show you 

how much was happening towards the 

end. 

Aztec bit the dust, shame ' I can now 

reveal that one of the reasons that 
PRIVATE 


they couldn*t get the mouse out was 
that they had a warehouse fire and all 
their stock was burnt, including the 
preprods, and the moulds, and the 
plans - in fact, everything seemed to 
be in there - strange.+.. 


The Technical Manual was launched ( 
hands up everyone who got one) while | 
was 5till rabbiting on about Asmon and 
Macro-D- 


Finally, if you want a giggle, read 
the last paragraph in the news section 
again in the light of recent 
happenings. 


So there we 
life of... It 


have it, a year in the 

just goes to show you 
that no-one can get it right all the 
time, in fact in the face of such 
adversity I was lucky to get any of it 
right at all ! 


DAVE 
RACE 
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Hello and welcome to another Private 
Correspondence, but this time with a 
differences changes have taken place. 
To be more precise, I have taken on 
the letters page from Tim. Before you 
all do nasty things like sending us 
your Enterprise versions of the " 
Commodore Rap", I must tell you that 
the address WILL be the same as before 
(for the time beings». heh heh - Ed)- 
If you have any queries which you 
would prefer to phone up about, then 
contact Tim at the number given in 
Issue 5. Oh yes, before I go any 
further I must tell you that my name 
is Duncan Taylor. Now to the serious 
bit, your letters: 


Dear I-E.U.G 


Now that Enterprise Computers have 
gone into Receivership what will 
happen to all the hardware and 
software that was about to be released 
like Eggs of Death, Sprite Handler, 
lip Compiler and the mouse? 


Will you still be continuing the 
Private Enterprise? How do you use the 
Attributes commands properly in Basic? 
How can I move a character about the 
screen without disturbing the 
background? I recently bought a Forth 
cartridge and I am having problems 
using it, please could you do an 
article on Forth? Will you be doing 
any articles on machine code? 


just bought a Brother HRS 
and tried your screen dump 
program on the Greatest Hits Vol ! 
Tape and I keep getting a variable 
error at the beginning of the program, 
is this another bug or is it amy 
printer? Can you tell me if there are 
any Enterprise users in the Humberside 
area? Is it possible to buy memory 
upgrades for the 64 in electronic 
shops ? 


1 have 
printer 


Nigel Schrimshaw, 
South Humberside. 


DT: Although Enterprise Computers have 
gone into Receivership, we will still 
be supporting the Enterprise as fully 
as we can» Neil's letter should have 
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explained this fully» Zip will be 
available soon, watch this mag for 
details. 


I'm afraid that to do justice to 
expaining the Attribute command would 
neccesitate writing an article about 
it - anyone out there interested? 


characters about the screen 

disturbing the background 
would have to be done using machine 
code and would be too long to include 
in Private Correspondence. 


Moving 
without 


We will do articles on Forth and 
Machine code if anyone would like to 
send them in to us» We can only do a 
limited amount ourselves, and nobody 
at IEUG HQ has any experise with 
Forth, so 1 can’t guarantee anything. 


Your 
well 


printer should work perfectly 
with the screen dump program, as 
it is Epson compatible. Check to see 
that you are doing everything 
correctly, and if you are still 
experiencing problems contact Tim at 
the IEUG address, as he supplied the 
offending program ! 


We can’t publish peoples names and 
addresses or forward them on, unless 
they specifically ask us to do so. If 
you would like to become a Local Area 
Organiser, tell us and we can then 
tell people in your area to get in 
touch with you. 

The memory upgrade to 128k involves 
quite a number of components ona 
circuit board, so to construct one 
yourself is unfortunately not as 
simple as putting in a few chips» Keep 
a look out in further issues for any 


gossip, outrage, its your page. 


news about upgrading: 


Dear I.E.UsG 


I propose to make all Enterprise users 
not in the IEUG aware of it by writing 
to magazines informing them of the 
IEUG, if that's all right with you 
guys: 


Down to problems nowt 


a) How does one convert tape to disk 
when the initial part of the tape 
contains the load instructions for the 
next part? I have DEVPAC. How do I go 
about getting the next bit to load 
from disk? I already have all the 
separate parts of a program, but need 
to get them together. 


b) How does one get a modular tape 
(e+g wriggler,sorcery) to load when 
the EXDOS is connected? I have to 
discorinect EXDOS to play them. 


c) How does one alter the program on 
Lands of Havoc to get it to function 
with the external joystick ? 


d) — can't understand some of the 
notation in the Technical Manual. How 
should IRG_ENABLE_ STATE, FLAG_SOFT_IRQ 
etc be used? Should they be part of a 
Basic program or are they just 
notations for machine code ? 


e) How does one get to EXOS to put in 
EXOS variables? How do I input EXOS 


Kernel functions in basic machine 
code? 

(I'm sorry 7 can't read your 
signature) 


EEE 


=Private Correspondence 


Purton, 

Swindon: 
DT: a) To get EXDOS to transfer 
things from tape to disk directly 


| either uses 
‘COPY TAPE: program_name 
ort 


10 OPEN INPUT £i:"TAPEs" 

20 OPEN OUTPUT £2:"DISKi file" 
30 COPY £1 TO £2 

The latter will only copy one file at 
a time (refer to the EXDOS manual). 
To link up separate modules of the 
same program you need to find the name 
of each of the modules and replace 
every occurrence of "TAPE!" in a 
module with the name of the next 
module in the sequences To do this you 
need to use a machine code (or 
Pascales+ Eds) programe 


b) The 
software is 


problem with some tape 
that the code is written 
in memory which EXDOS uses ( 
unfortunately, Wriggler and Sorcery 
are in this category); there is no way 
of getting round this other than 
completely relocating the program. If 
you feel in a particularly masochistic 
mood, and write a program to do this, 
you will make a lot of people 
hysterically happy (hint hint). 


c) One of the marks of a good program 
is that it allows users flexibility in 
its use - unfortunately not all 
programs are written with this in 
mind» Lands of Havoc doesn't allow the 
use of an external joystick, so unless 
you are willing to reprogram some of 
it then I am afraid there is nothing 
simple that can be donee Another 
example of the above is the number of 
programs which don't allow the 
| external speaker to be switched off: 


d) You are not the first to be 
mystified at the notation used in 
either manuals, a little explanation 


is necessary: 


FLAG_SOFT_IRQ and the like are just 
labels, they refer to specific areas 
in memory whose state either changes 
the operation of the machine, or which 
give an indication of what is going 
on» For example, FLAG _SOFT_IRQ refers 
to address BFF2 (in Hex) in segment 
255 of the memory» This byte is set, 
either by the programmer or the 
computer during operation, to cause 
an interrupt» The Technical Manual 
explains it further. 


e) To use EXOS properly you need to 
write a Pascal or machine code program 
to do whatever it is you want to do 
with EXOS. A machine code program can 
then be accessed from a Basic program, 
if you want to, using the USR command. 
See the article on Exos Variables in 
this very issue for more details ! 


Thanks for the offer of “spreading the 
word". Everything to advertise the 
group to non-IEUG Enterprise users is 
welcomes 


SERS SE EES. SE SASSER Scene | 
_ SS SHES | 


Dear I-£.U.6 


1 have bought EXDOS, but the Reciever 
tells me that I cannot now have a free 
1S-DOS disk» Is there any way I can 
obtain IS-D0S? 


With EXDOS connected most tapes will 
not load fully even with the command 
LOAD "tapet". Some tapes just stop 
loading and others will only continue 
loading if 1 press START immediately 
after the monitor indicates the 
loading has finished. 


T bought a Cumana 3.5" twin disk 
drive, and ~— having lost = the 
instructions» I am unsure of what 
disks I can use with it. 
J. DeWeir, 
Croydon, 
Surrey: 


DT: There 
problems 
nothing 
although 


have been a number of 
getting hold of IS-DOS; 
has been sorted out yet, 
news from the Receiver 
indicates that Enterprise's assets 
will be sold soon, so hopefully this 
issue should be resolved in the very 
near future. 


The question about EXDOS and the 
loading of tapes is a question a 
fumber of people have written in 
about» This problem exists because 
when EXDOS is connected, the default 
input device automatically changes to 
DISK: This is not a problem if you are 
only dealing with a single file, but 
most programs consist of a number of 
files, usually a loader program 
followed by the main program. The 
trouble is that a number of these 
loader programs do not specify TAPE: 
when looking for the file to be 
loaded, and of course it will be 
searched for on disk 


With your Cumana drive, any 3.5" disk 
will do, although if it’s only a 
single-sided drive don't waste money 
by buying double-sided disks 


—SS_—————— === 


=Programming 


There are often times when it is 
necessary to run machine code routines 
from a main BASIC program, or store 
large amounts of data without using 
arrays: To do this you must find a 
place in the computer's memory where 
1t will not be overwritten by other 
thingss Whilst if is fairly easy to 
protect it from the needs of the EXxOS 
operating system, protecting it from 
the BASIC is rather more difficult as 
it is not properly documented. 


The “official” Enterprise way of 

setting aside memory is to use the 

ALLOCATE command, as mentioned in the 

chapter of the BASIC manual entitled " 

Using Machine Code". You allocate a 

certain amount of memory for use by 

your routine, and insert the machine 

code into the program using CODE 1 

statements, typing it in as bytes of M/C from Basic 

hex» This is fairly well explained in LOAD: 190 NEXT I 

the manual» As a method of using 200 CLOSE £106 

machine code it is not bad; you are 100 PROGRAM "MLOAD" 

allowed to use “labels” in the hex, | 110 LET MCLEN = (length of code> 

and can CALL these labels by name. } 120 ALLOCATE MCLEN MSAVE: LD A,106D 

However, when you compare it with the | 130 CODE MC = "0" LD DE, destination 

likes of "DEVPAC" and "ASMON" (I am| 140 OPEN f106:"name" ACCESS OUTPUT LD BC, length of code 

lucky enough to have a copy of ASMON, | 150 FOR I = MC TO MC + MCLEN - 1 EXOS 08D Read block 

it's brilliant !), the hex method] 160 GET f106:A$ RET 

seems a little primitive, and also} 170 POKE 1,0RD (A$) 

wastes memory with thousands of CODE{ 180 NEXT I 

lines: 190 CLOSE £106 The BASIC routines are pretty self 
explanatory, but the machine code 

The problem is that there is no way of routines assume that channel £106 has 

to include an assembled file from} MLOAD: LD A,106D previously heen opened to tape or 

either assembler into an allocated LD DE, location of code disk» This channel should be closed 

block, as the BASIC lacks a facility LD BC, length of code afterwards. The machine code was 

to LOAD or SAVE blocks of machine EXOS 06D Write block written using ASMON. 

code. It is possible to use RET 

relocatable modules via the operating As long as the code you load in is 

system, but they can be a bit of a assembled to run at the start address 

mouthful and are not really necessary: | Saye: af the allocated space (usually 4809), 
you will be able to call and use it. 

I have written short routines to SAVE 100 PROGRAM "NSAVE" You can also use it to load data into 

and LOAD machine code, and these are 110 LET MCLEN = <length of code> the allocated space. This method will 

printed below. There are two versions| 120 ALLOCATE MCLEN sometimes do for small routines, but 

of each, BASIC and machine code, | 130 CODE MC = «++. ' Your M/C there are unfortunately a few snags. 

although you will of course needa} 140 CODE MC = .... ! program 

machine code loading routine to load} 150 CODE MC = .+e. ! (hex) The allocated space seems to be part 

the machine code loading routine (') 160 OPEN F106:"name" ACCESS INPUT of the variables area, and is cleared 

unless you convert it into hex and use} 170 FOR I = MC TO MC + MCLEN - 1 by a RUN command. It is not possible 

CODE. 180 = PRINT f106:CHRS(PEEK(I)); to extend the allocation over more 


=Programming 


than. one segment, so in practice you) If you want to use a mega-long piece |The program above 


are limited to about 12K of space» On 
a 128K machine this is pathetic ! 
Finally, X05 2.0 in the 64K machines 
has a bug in the ALLOCATE command, 
requiring patching with the program 
featured in previous issues: 


of code, or huge library of data, then 
there is an alternative - you can set 
up your own 16K segment or segments 
for use by your BASIC program: 
Unfortunately, the set-up code must be 
put in using the infamous ALLOCATE 
statement, but that’s life ! 

We can thank Intelligent (?) Software 
for these little features, 
unfortunately they make the ALLOCATE 
space quite hard to use. 


Here's the set-up code. It is very 
Simple because it relies on EXO0S calls 
to do all the work. 


LD A, (FREESEG) 


Load A with number of previously 


LD C,A ' allocated segment 

EXOS 25 ' "Free Segment” EXOS call 

EXOS 24 ' "Allocate Segment" EXOS call 

RST 18 ' See if an error has occurred 

LD A,¢ ' C now contains the seqment number 
LD (FREESEG),A ! of the allocated seqment 

LD H,0 

LD L,¢ 

RET 


FREESEG DEFB 0 


Address where user’s segment 
Tumber is held. Must not be 
' corrupted by any other data. 


“You 


Will allocate you é 
return its segment 
BASIC program in 


16K seqment, and 
number to your 
register HL (see the BASIC manual). 
Any number of segments may be 
allocated like this, up to the number 
free to use, but there is one 
important point to remember when using 
the routine» You must make sure that 
the segment is freed by EXOS, using 
the free seqment call before the 
segment is allocated, otherwise you 
will be given a new segment. If this 
is not done each time, you will soon 
find the routine happily gobbling up 
the system's free memory each time you 
Tun your program. 


Before you can use a Segment, it must 
be paged into the 780 address map page 
2, using OUT 178, freeseg» This ought 
to be done each time the seqment is 
used, as the BASIC may sometimes want 
to use the page» You can then PEEK and 
POKE to your statement from BASIC - it 
will be situated from 32768 to 49151 
in the address map, but remember to he 
careful: 


LOAD or SAVE part or all of 
your seqment(s) using the LOAD and 
SAVE routines above. If you want to 
know more about the operating system, 
allocating memory etc. then the 
Enterprise Technical Manual is a must 
to buy. 


can 


A.S. Burnham 


(Editor's 
longer 


note - The manual is no 
available, but all useful 
technical information contained in it 
will appear in this magazine in the 
near future). 


=Software 


=Update 


KEY TO RATINGS; 
ARCADE and ANIMATED ADVENTURES 


GAME CONTENT - Variety of actions 
* 7 screens 
- Ease of use, 
addictive quality 
- Quality and use of 
graphics related to 
aachine 
- Use of stereo and 
tune / noise 
originality. 
VALUE FOR MONEY - Overall impression 
when compared with 
prices 


PLAYABILITY 


GRAPHICS 


SOUND 


ADVENTURES 

GAME CONTENT - Design of plot / 
background. Puzzle 
ingenuity: 

PRESENTATION - Atmosphere,graphics 
(if any), text / 
screen layout. 

INTERACTION - Parser quality, 


editing facilities 


VALUE FOR MONEY - Overall iapression 
when compared with 
price. 


PERCENTAGES 


0-25 - Yuk, Bleah ! 

26- 50 - Bad to Mediocre 

Si- 75 - Average to Good 

75-100 - Excellent to completely 
Brilliant 
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Name : Screen Utilities 

Producer + Boxsoft 

Category : Utility 

Price : £5.95 

If you went to the P.C.W. Show last 
year, you probably freaked out over 
the User Group's artistic talent ( 


read, Mark 


great pictures 


‘), by which I mean those 
of deckchairs and 
horses and things» Well I've a 
confession to make, we didnt draw 
them - Tim digitised them. BUT you're 
probably still pretty amazed at the 
speed they were loaded from disc; 
after all the listing in Issue 1 wasn’ 
t that fast, and how did we do those 
nifty printer dumps ? 


Well, the 
available 
(surprise, 
Utilities 
SCR_SLC, 


software used by us is now 
to you, courtesy of Boxsoft 
surprise ty Screen 
consists of two programs 
(standing for SCReen Save, 
Load Copy), and SCRDUMP, (standing 
foress wait for ites. SCReen DUMP, 
and called SCRCOPY on the cassette 
label for some inexplicable reason). 


Both programs load as system 
extensions, so that they sit in the 
computer out of the way and are called 
using the 
more convenient than having to include 
the routines at the beginning of every 
graphics program that you write. They 
can also be used in immediate mode in 
the same way that you would use HELP, 
for example. 


SCR_SLC is 
quick. Not 


and very 
the 


very powerful 
only does it save 


EXT command, which is much 


== 


onl 


P-R-O-G-R-A-M-S 


a a 


SCREEN UTILITIES 


palette colours along with the picture 
data, but it will open a video channel 
of the right type to load the picture 
and automatically display it if 
asked» SCRDUMP dumps sideways on, so 
that you don*t lose the edge of your 
masterpiece, and the output can be 
inverted so that it appears the same 
as the image on the TeV. screen+ It 
can also be set up for just about any 
printer - except daisywheels ! 


Both programs have many more features 
which I don’t have space to go into 
here, most of which were listed in the 
Boxsoft advert last Issue. All in all 
if you're the sort of person who does 
any graphic work these utilities are a 
useful addtion to your software tools, 
and I can certainly recommend them at 
£5.95 for the pair (where's that 
tenner Tim ?). 


=Software Update 


Name : Lzzip 
Producer ! Boxsoft 
Category t Utility 
Price : £17.98 


Anyone who does any programming on the 
Enterprise will know how slow IS-Basic 
is - a Snail with an abacus is 
probably quicker! Well, help is now at 
hand in the form of Zzzip, a Basic 
compiler available from Boxsoft, ( 
plug,plug) and written by Peter Hiner. 


This is the second compiler we have 
seen on the Enterprise, the first, 
from Aztec (remember them ?) never got 
past the developement stage and only 
offered a two to five times speed 
increase» This one gives up to a FIFTY 
times speed increase on some things 
and gives, on average, a twelvefold 
speed increase. 


One of the reasons why Zzzip is so 
quick is that it is an integer 
compiler. This means that any programs 
which use floating point arithmetic 
are unlikely to work properly after 
being compiled without a certain 
amount of fudging» Normally, this 
would also mean that trigonometric 
functions (SIN, COS etc+)wouldn't 
work, a5 they return values between -1 
and it: the same applies to LOG. 
However Zzzip has the unusual feature 
of scaling the results returned by 
these functions by a factor of 1000, 
50 allowing them to be used in 
compiled programs with a little work. 
All of this is explained in detail in 
the user manual. 


1aPaT WA 


In fact, Zzzip seems to handle nearly 
all Basic functions and commands, 
although some need to be used with 
care, and there won't be many programs 


Actually 
itself. 


using Zzzip is simplicity 
Just load Zzzip and tell it 
the name of the program you want to 
compile. Zzzip will then ask you what 
to call the compiled program and gets 
on with the job of compiling your 
Basic programs It then makes a number 
of passes through the program and 
points out any parts that can’t be 
compiled so you can go back to the 
Basic program and alter them. You will 
almost certainly find that there is 
something in your program that will 
need changing, although it will 
usually only be something minor, and 


the manual gives plenty of advice on 
more difficult cases. Once the program 
has been altered to TZzzip's 
satisfaction the compiled program will 
be saved in two parts - the main 
program anda loader. All you need to 
do to run the compiled version of your 
Basic masterpiece is load and run the 
loader program and sit back and be 
amazed by the speed increases. 


In conclusion, I would say that Zzzip 
is a good buy, and the hassle of going 
through a Basic program checking for 
things it can‘t handle is more than 
compensated for by the speed increases 
obtained, presuming of course that you 
program in Basic. 


Dave Race 
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This article is intended for the 
machine-code programmer» If you do not 
understand machine-code, do not expect 
to understand much of this! 


If you wish to write programs using an 
assembler, they should be assembled as 
user-relocatable modules. Use ENT $ to 
mark the code that intialises and 
defines all your extensions. 


Intelligent Software designed BASIC in 
such a way that a programmer can add 
to the language very easily, without 
having to re-write the whole thing. It 
is possible to add both commands and 
functions that can have their own 
syntax and yet use the normal 
facilities of BASIC to interperate:. 


First, I will explain how to add your 
own function» This is possible in 
BASIC using the DEF command, but this 
method will mean that your function 
will not disappear when you alter a 
BASIC program or run it» Your function 
Will behave very similarly to an in- 
built one. 


To add a function you should use a 
CALL to a BASIC subroutine, which will 
do all the complicated work for you. 
Here is how to use it ! 


LD HL, function_data 
RST 16 
DEFB 128,0 


The 
the 


‘RST 16° bit is special call like 
"RST 8" of EXOS. It looks ahead 
to the ‘'DEFB’ and all the numbers 
after it» Each number represents a 
specific call» The list of numbers 
should end with a ‘0’. 


Before calling, HL should point to a 
block of information about the 
function, in the following form: 


fn_data DEFW 0 
DEFB 13 
DEFB name_length 
DEFM "name" 


Basic Extensions 


DEFW execute_address 
DEFB execute segment 


‘name_length’ is the number of 
Characters in the name of the function 


‘name is the’ name of the function in 
upper-case letters. 


Yexecute_address’ is the address to he 
called to carry out the work of the 
function 


‘execute segment’ is the  seqment 
number that the code is in» Just keep 
it as zero if your code is in page- 
zero, which it probably will be. 


The function will have to get 
arguments and return them using more 
‘RST = 16! calls. Here is an 
explaination of the most important 
ones. 


To return a value, first put it in the 
HL register and then : 


RST 16 
DEFB 2, 


The built-in 
solely of : 


WHITE function consists 


WHITE LD HL,255 
RST 16 
DEFB 2,0 
RET 


sHl=white code 


jReturn this value 
yReturn 


To skip 
bracket, use ! 


over an opening - 


LD A,8 
RST 16 
DEFB 34,0 


To skip over the closing ~- 
bracket, use ! 


LD A,9 
RST 16 
DEFB 34,0 


To skip over the comma, use : 


LDA, 42 
RST 16 
DEFB 34,0 


These 
functions 
forget to 


three are essential 
with arguments. Do 
include them. If 


for 
not 
the 
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SS a | 
RSE ES se ee | 


relevant symble is missing, then a 
‘Not understood’ error will be caused. 


To fetch an argument, use § 


RST 16 
DEFB 35, 11,0 


This 
HL. 


returns the argument’s value in 


Here is an example function that 


doubles a number. 


DEFINE ENT $ 
| LD HL, FN_DATA 
RST 16 
DEFB 128,0 

RET 


) FN_DATA DEFW 0 
DEFB 12 
DEFB 6 
DEFM "DOUBLE" 
DEFW DOUBLE 
DEFB 0 


DOUBLE LD A,8 
RST 16 
DEFB 34,0 


\ Skip 
opening 
/ bracket 


RST 16 \ Fetch 
DEFB 35,11,0 / parameter 


ADD HL,HL > double it 
RST 16 \ Return 
DEFB 2,0 i: 
LD AS \ Skip 
RST 16 >closing 
DEFB 34,0 / bracket 
RET > Return 
Because ‘RST 16’ accepts a list of 
Jcalis after it, it is possible to 


replace the first five lines of DOUBLE 
with | 


iD AAS 
RST 16 
DEFR 34,35, 11,0 


It is easy to think that it ought to 
be! 

LD A,8 

RST 16 

DEFB 34,0,35,11,0 
There are two zeros in the original, 
so why shouldnt there be two zeros 


when the program is shortened version? 


The answer is that the zero is the 
marker of the end of the list of calls 
and so should not appear until the 
ends 


Now for string functions. 


String functions are defined in 
exactly the same way a5 numeric ones, 
except that the ‘DEFB 12' must be 
replaced with "DEFB 13’, to signify it 
as a strinf function. It must also, of 
course, have a $ Sign on the end of 
its name. This should be included in 
the name and length byte. 


To evaluate a string expression as an 
argument, use ! 


RST 16 

DEFB 36,0 
This will put a string on the "BASIC 
parameter stack’. This is used for 
parameters, blocks calculations etc. 
and 15 very important: 


To find the 
use 


address of this string, 
LD HL, (552) 
INC Hi 


HL will now point to its length byte. 
After that comes the actual string: 


When 
should 


the function ends, this string 
have been deleted from the 
stack, meaning that the value at 
address 552 must point to the next 


byte above the end of the string. 


Now for how to return a string result. 


LD HL, (552) 
DEC HL 


Then put the last character in the 
String at address HL» Decrement HL and 
put the second-from last character in 
the byte at HL and so on until the end 
(or beginning!) of the string. 


The length byte should come next and 
the byte below should hold the length 
byte+2. Then store the address of this 
last byte at address 552. 

So, to return the character B, 


use } 

LD HL, (552) 
DEC HL 

LD (HL) ,B 
DEC HL 

LD (HL)! 
DEC HL 

LD (HL) ,3 


LD = (552) ,HL 
Now for a complete function. 


FN_DATA DEFW 0 
DEFB 13 
DEFB 4 
DEFM "KEYS" 
DEFW KEY 
DEFB 0 


Read character 
> from keyboard 
channel 


KEY LD = A,105—\ 
RST 48 
DEFB S / 
RST 24 > See to any errors 


LD HL, (552) \ Return 


DEC HL \ character 
LD (HL) ,B \ as 

DEC HL \ result 
LD (HL), 1 /from 

DEC HL /function 


UD) CHE) Se 
LD (352), HL / 


Which returns a key press by reading 


13 
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from the keyboard channel 
Commands are more complicated. 


Here is the code for a command that 
writes a string to the status line. 


This bit defines the command 


DEFINE LD  HL,(562) 
DEFLOOP LD =A, (HL) 
INC HL 
OR (HL) 
DEC HL 
JR =, EXTEND 
LD A, (HL) 
INC HL 
LD =H, CHL) 
LD soL,A 
JR  DEFLOOP 
EXTEND LD DE,COMTAB 
LD (HL), E 
INC HL 
LD = (HL) ,D 
RET 
This is the first table» It can have 


information on as many commands as you 
like» Here it is only one, though- 


COMTAB DEFW 0 

DEFB 1 3 number of commands 
The following two lines must be 
repeated for every command: 

DEFW STATUS$ spointer to 
jdata about 
ythe command 

DEFB 4 ; ignored 


This is the data for each command. 
STATUS$ DEFW STATUS ;execution address 
DEFW CHECK 
DEFB 83 ;command type 
jsee below 
DEFB 6 yname length 
DEFM "STATUS" sname in upper 
case 


This bit is required, but is pointless 
to explains just include it with every 
extention program for commands. 

CHECK RST 16 
DEFB 32,0 


f4 


SCF 

JRC, CHCK2 
RST 16 

DEFB 33,0 
CHCK2 LD  A,(516) 
CP 16 

RET 1 

cp 2 

RET C 

cP 8 

JR 1, CHCKA 
JR CHECK 


CHCKL 


This 
works 


is the code that does the actual 


STATUS RST 16 \fetch string 
DEFB 36,0 /parameter 
LD HL, (552) 


INC HL 

LD = A,(HL) \ Check 

CP. . 32 \ its 

JR 2,7BG > length 

OR A / and cause in 


JR 1,TBG / error if too big 
LD =C,A \ Put length 
LD =6ByO / in BC 


IN A, (178) 
PUSH AF 
LD A255 \ Find address 
OUT (178),A > of status 
LD DE, (OBFF6h)/ line 
INC DE 
INC DE \ Move over 
INC DE > key lock 
INC DE / section 
INC DE 
INC DE 
LDIR > write into memory 
LD (552) ,HL > Reset 552 
POP AF \ Restore 
OUT (178),A  / segments 
RET 

TBG LD HL, 1106 \ Cause string 


RST 32 / too big error 
As you may have noticed, functions and 
commands get their arguments in 
exactly the same way. So commands 
fetch numbers using the same call as 
functions: 

The ‘DEFB 93! 


bit of the command's 


ary 


data section is the type byte. It is 
the normal type byte, meaning that the 
function can be used in programs, 
immediate mode, multi-statement lines 
and that it should be tokenised All 
commands should be tokenised» The only 
exceptions are !, DATA and REM where 
the information afterwards will not be 
evaluated and should be kept as text. 


The type byte is made up as follows : 
bit meaning if set 


0 allowed in immediate mode 

1 allowed in program 

2 end of block 

3 start of block 

4 allowed in multi-statement 
line 

5 alters program 

6 tokenise 


7 hot used - keep as zero 


Bits 2 and 3 are used by LIST for 
indentation purposes» If they are both 
set, then indentation like CASE or 
ELSE is given. 


Call number 34 you have seen before. 
It compares the character that BASIC’s 
internal pointers are pointing to with 
the value in the A register» If they 
differ, then an error is caused» Here 
are all the values A can have ! 


0 End of line 
1! -comment marker 


3f Ot 617) OD 
4$ Lite, 184° Zoek 
6& 12 , 19 wae are 
17 13:- »<20)) 
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8 ( 21 <> 
9) 22 <= 
It is also possible to find out what 
character is at that position with ‘LD 
A,(516)". A will have the appropriate 
value from the table above. To skip 
over any character or word, use call 


number 32. 


To find out what the pointers are 
pointing after this symble, use ‘LD A, 
(Sid)'. A will have a value from the 
following table ! 


0 symble 
32 ordinary word or numeric variable 
64 string variable 
96 command 
128 string enclosed in quotes 
160 line number after GOTO etc: 
| 192 ordinary number 


To find out the length of a word, use 
‘LD A,(515)'. The address of the text 
of this word can be found out with ‘LD 
HL, (839)'. 

the 


Here is a summary of most 


important calls ! 


0 End of list 
1 Cause error.Can also use RST 32 
2 Put integer HL on BASIC 
parameter stack 
11 Get HL off parameter stack 
32 Skip over any word 
33 Skip over expression 
34 Skip over word as long as it is 
prefixed with the symble A 
35 Fetch numeric parameter 
36 Fetch string parameter 
128 Add function HL 
160 Skip closing bracket 
186 List HL to DE 
Here is a Summary of the more 
important addresses in page zero: 


16 RST 16 call address 
32 cause error call 
Sid word type 
S15 word length 
516 delimiting symble 


518 command exit condition 
if zero when the command exits 

with RET, then the program will juap 
to the address stored at 53d. 

521 present channel number 

522 program number 

532 pointer to symble in program 

534 pointer to beginning of line 

if address 518 is two, then 

this is used as the destination 
address for jumps 

538 start of program memory 

540 code pointer 

552 BASIC parameter stack 

562 pointer to command table 

572 error code 

574 CONTINUE address 

576 address of present HANDLER 
program 

584 length of input 

585-838 input 

839 pointer to pressent word 


Here is the format of a program line 


length byte (0 for end of program) 

2-byte line number (1-9999) 

{-byte indentation value (used by 
LIST) etc. 

96 (type byte for command) 

command number (0-258) 


comes the command's 
parameters. First comes a byte giving 
the type» The top three bits are put 
in 514 and are used to find out what 
the rest of the data means. 


After that 


symble ( 51d=0) 
Bottom five bits (in 515) 
symble’s number (see above). 


is the 


word (32) 

Bottom five bits are word's length. 
Word comes after in upper case» (839) 
points to this word 


string (64) 
As ordinary word 


command (96) 
Number afterwards 
numbers 


gives command 


quotes (128) 


Next byte gives length. Bytes after 
that are the letters between the 
quotes: 


line number (160) 
Two bytes afterwards 
numbers 


give line 


number (192) 

If bottom five bits equal 2, then the 
number is an integer, given as a line 
number. Otherwise, the number is 
floating-point in the following form : 


five bytes BCD mantissa 

one byte exponent 

~bit 7 is the sign bit 

-64 is an exponent of zero, below 
that are negative exponents, and above 
that, the exponent is positive. 


The 
the 
tokenisation 


last byte of the line is zero. If 
first command on the line has its 
flag reset, then the 
above rules do not apply» The whole 
line is just text ending with a zero. 
It will, though, have the length byte, 
line number and command number stored 
as above. 


If you are confused by this, or would 


like to know more, you can contact me. 
My address is 


Glebe House 
Coalport Road 
Madeley 
Telford 
TF7SDS 


15 


16 
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Once the database is running, a menu is presented to the user giving three 


options : 


1. CREATE A FILE 


This (as the name suggests) allows the user to create a file. He will be 

asked how many fields will be required (up to a maximum of 10). If the 

following example is considered, the term "field" and others may become 

Clearer. 

Name! Fred Bloggs = Field 1! added. Only 20 characters may be used on each field. If 
Number + Road: 13, Nowhere Street = Field 2! more are used, they are automatically added to the 
Town! Villestown = Field 3! = 1 rec beginning of the next field. If the erase key is pressed 
County! Yorkshire = Field 4 | the whole field is deleted, not just one character. To 
Post Code: ABL C23 = Field 5 | stop adding records, press ESC. 

Each separate piece of information is called a field, so COMMAND "D" 

in this example the Name is the first and the Town the 


third. Altogether, these five fields form one record: For 
example, it could be thought of as one card in a card 
index» Once a number of records have been entered, these 
make up a file (think of a draw full of index cards}. The 
more fields that are used, the smaller the number of 
records which can be stored before the memory is used up. 
After the titles have been entered (up to a maximum of 20 
characters) the main database routine is started. 

2- LOAD A FILE FROM TAPE 

This allows data to be loaded into the database from tape 
after being saved previously. Just enter the filename 
when asked (or just type ENTER to load the first file 
found on the tape)» The data will then be loaded into the 
database and all the functions used on it as normal: 


3. EXIT PROGRAM 


As the title suggests, use this to exit the program. 


Once in the main database routine, three separate windows 
are created; the top one displaying instructions and 
prompts, the second displays all the commands available 
to the user and the third (and largest) showing all the 
entered information» Another function of the top window 
is to show the current record number, with the total 
number of records in the file and the total available ( 
depends on the number of fields used - maximum 1400 with 
{ field). The main database routine has a number of 
commands which do need some quite detailed explanation: 
COMMAND "A" 

new records to the file» This command is used when 
or when extra records are to be 


Adds 
starting a new file 


Delete record currently shown on the screen» You will be 
asked to confirm this command to prevent accidental 
erasure. If there are a lot of records, it may take some 
time to rearrange them. 

COMMAND "OO" 

Order or Sorts The sort in this program is a "shell sort" 
, Which is very quick when compared with others such as 
the "bubble sort". Even though it is a powerful sort, it 
will take a long time with lots of records to arrange, so 
be prepared for a long wait» After choosing which field 
the sort will use, you will be asked how many characters 
are to be considered» I have found that 2 characters are 
the most reliable for the data I store in the program, 
but this can vary and depends on the contents of the 
fields. If, for example, there are no spaces in the first 
4 characters of the field being used then 4 would give a 
more accurate sort. The reasoning for this is that spaces 
are also included in the routine and can give unexpected 
results» Finally, numbers are not sorted numerically, but 
according to their ASCII codes, so 113 would come before 
23! Experimentation is really the best solution with 
this function. 
COMMAND "S" 

Search through the file» You are asked which field the 
search is to use» If you want it to be over all the 
fields then type "A". The search string is required next; 
enter the words and letters which the computer is looking 
for. Be careful in the use of upper and lower case 
letters, as they are not the same» All records containing 
the search string will be displayed (up to a maximum of 
50), one at a time - just press any key to go on to the 
next, or ESC (when prompted) to escape 
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COMMAND "L" 


List all records 
the listing. 


from first to last. Press ESC to stop 


COMMAND "F" 


Move forward by one record. 


COMMAND "B" 


Nove backwards by one record. 


COMMAND "Cc" 


Copy a page to the printer, or alternatively list the 
whole file onto paper (in a compacted form). Follow the 
prompts when given. 


COMMAND "E" 


100 PROGRAM "DATABASE.Bas" 
110 REM 


120 REM HERHERASEEAHEEESEEREESERES 
130 REM ### +E 
140 REM ### +t 
150 REM ### +44 
160 REM #RRERRAEHERAEEEEAEEEHHE EEE 
170 REM 
180 SET FKEY 1 "" 
190 SET FKEY 2 ** 
200 SET FKEY 3 *" 
210 SET FKEY 4 “* 
220 SET FKEY 5 *" 
230 SET FKEY 6 *" 
240 SET FKEY 7 "" 
250 SET FKEY 8 "" 
260 SET INTERRUPT STOP OFF 
270 SET KEY CLICK ON 
280 SET SPEAKER ON 
290 LET FIELDS, NUM_REC,CUR_REC=0 
300 LET CUR FLD=1 
310 LET ADD,NUM=0 
320 D0 
TEXT 
PRINT AT 1,14:"Database" 
PRINT AT 2,143"%-------- = 
PRINT AT 4 am Richard Hudson 1986" 
PRINT AT 10,1: "Select from the following..." 
PRINT :PRINT "1}Create a new files" 
PRINT !PRINT "2}Load a file from tape." 
PRINT SPRINT "3}Exit program." 


LOOK £105: 
PRINT SPRINT CHRS(B) 5" " 


main program 


440! 
450 LOOP UNTIL B=49 OR B=50 OR B=Si 
460 WAIT 1 
470 IF B=49 THEN 
CALL ASK 


; set up data base arrays 
LET MAXMEM=INT(1400/F TELDS) 


Exit from the main database into the initial menu. 


COMMAND "WU" 


Update records. The function operates on the record 
currently displayed» Each field in turn can be altered, 
but if any alterations are to be made the ERASE KEY MUST 
BE PRESSED ~- otherwise the new version will be added to 
the old, even though at first it will appear to 
overwrite. To leave a field unaltered, just press ENTER. 


COMMAND "K" 


Save a file to tape. Data can be saved under a given name 
(letters and underline characters only) of limited 
length. It is saved in two parts, the first saving the 
data needed to create the arrays, ie- the number of 
records/fields and the field titles. The second part 
actually saves the input data in the file. The two parts 
are required so that arrays can be formed during loading: 


STRING INFO$(1 TO MAXMEM,1 TO FIELDS)#20 
NUMERIC Y(FIELDS) 
STRING TITLES(FIELDS) #18 
DIM SER(50) 
CALL SET_UP2 
CALL SET UPI 

0 CALL DBASE 

; ELSE If B=50 THEN 
INPUT PROMPT “Enter file namet-":F$ 
OPEN £106:"tape:"4F$ 
INPUT f106:FIELDS 
INPUT F1063NUM REC 
INPUT £106CUR FLD 
CLOSE £106 
LET MAXMEM=INT(1400/FIELDS) 
STRING INFO$(1 TO(MAXMEM),1 TO FIELDS)#20 
STRING TITLES(FIELDS)#18 
DIM SER(50) 
OPEN f106:"tape:"4F$ 
FOR F=1 TO FIELDS 

are £LO6STITLES(F) 


NEX 
FOR R=1 TO NUM REC 
FOR F=1 TO FIELDS 
INPUT £106: INFOS$(R,F) 
NEXT F 
NEXT R 
CLOSE £106 
LET CUR _REC=NUM_REC 
CALL SET _UPI 
840 CALL DBASE 
850 ELSE IF B=51 THEN 
CLEAR FKEYS 
EH INTERRUPT STOP ON 


8 

890 END IF 
900 GOTO 320 

910 REM 

920 REM HESSEEREEREEHSEEREES 
930 REM ### Functions ### 
940 REM H#EERERHEEEAERERES ESE 
950 REM 
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960 DEF ASK 


CLEAR SCREEN 

PRINT AT 1, ei ‘Database’ 

PRINT AT 24 

INPUT AT 5,1, “iF MISSING 1000,PROMPT “How many 
fields (Max 10) 2" S FIELDS 

PRINT SPRINT "Thankyou. Please Wait a moment.. 


10 
1020 END DEF 


1030 DEF SET a 


' open £ 

SET vine fhe 0 ' d0-coloumn text 
SET VIDEO X 40 

SET VIDEO Y 2 

OPEN f1i"videos" 

SET fAtPALETTE 8, YELLOW 

SET VIDEO Y 3 


CALL DELETE_REC:LET KEY=0 

CASE 75,10 
CALL oA: tLET KEY=0 

CASE 69,101 
CLEAR tH 
PRINT £18"Do you really want to exit 2(Y/N) 
all the variables will be destroyed ie 
LOOK fL05:KEY2 
IF KEY2=89 GR KEY2=121 THEN EXIT DO 
CLEAR f1 

CASE ELSE 
GOTO ty ' look for key again 

END SELECT 


SET VIDEO MODE 2 
OPEN £{2:"video:" 
SET f2:PALETTE 0,GREEN 


1760 END DEF 
1770 REM ##HEEEEREEEEHEEEEREE 
1780 DEF ADD RECORDS 


SET VIDEO MODE 0 ' 40 coloumn text 1790 LET CUR REC=NUM REC 
1800 = CLEAR ff < 


SET VIDEO Y 21 
OPEN £3: "videos" 

SET £3:PALETTE 32, YELLOW, 0 
DISPLAY f3:AT 6 FROM 1 10 21 
DISPLAY FLtAT 1 FROM 1 TO 2 
DISPLAY £2AT 3 FROM 1 TO 3 


PRINT £2:"S=searchi","L=list!","C=copy page to 


printer!",*Fetormards!", "B=backwards:" 


PRINT f£2:"O=order(sort):","Usupdate record:" 
"Azadd new records!","D=delete recerat's "Ks ee 


file to tape:","E=Exit to main menus" 
1230 PING 
1240 END DEF 
1250 REM 
1260 REM #E#HERHEREREREEEREEEREEES 
1270 REM ### Data base routine ### 
1230 REM #EREHEREEERAEERHEREEEERSE 
1290 REM 
1300 DEF DBASE 


1310 CALL DISP_FLDS 
1320 DO Y 


CLEAR ft 

PRINT £1,AT 2,10:"Enter command:": 
IF NUM_RECDO THEN 
CALL DISP RECUR REC) 


PRINT £1,AT 1,1:"Record:"sCUR RECs" of 


NUM_REC,"Max="sMAXMENs 
END IF 
LOOK f105:KEY 
if KEYC31 OR KEY) 159 THEN 1390 
SELECT CASE KEY 
CASE 83,115 
CALL SEARCHILET KEV=0 
CASE 76,108 
CALL Lisrsier KEY=0 
SE 73 


105 
CALL INFOSLET KEY=0 
CASE 67,99 
CALL COPYELET KEY=0 
CASE 70,102 
CALL FoRwaRD: LET KEY=0 
6 


ASE 
CLL, Bat Bayan: SLET KEY=0 
CALL, bn tLET KE¥=0 


CASE 8 
cht > UPDATE: SLET KEY=0 


CASE 65,9 
CALL ADD RECoRDS:LET KEY=O:LET ADD=ADD+1 


CASE 68,1 


CLEAR £3 
CALL DISP_FLDS 
it a en THEN 


“ans fii"File fullss..." 


GOTO 2200 
END IF 


IF NUM REC>=0 THEN LET CUR_REC=CUR_REC+1:LET NUM_ 


REC=NUM_REC#1 

STRING BUFFERS 

LET BUFFER$="" 

a ag £L,AT 2,1:"Type Ese to stop entering"; 


FOR F=i TO FIELDS 
LET X=(F#2)-1 
FOR L=21 TO 40 


PRINT £3,AT X,u2"" 

LOOK f105:KEY! 

IF KEVi=13 THEN EXIT FOR 
IF KEY1=27 THEN 2200 

IF KEYI=164 THEN 


maT £3,AT X, 215" 
LET Bur FERS=** 
GOTO 1980 
END IF 
PRINT £3,AT X,LECHRS(KEY1) 
< BUF FERS=BUFFERSECHRS (KEY) 


NEXT L 
LET INFOS(CUR REC, F )=BUFFERS 
LET BUFFERS="* 

NEXT F 

LET NUM_REC=NUM_REC+! 

nae CUR _REC=CUR_REC+1 


EAR [3 
um DISP _FLDS 
tT NUM REC=NUM REC-1SLET CUR _REC=CUR_REC-1 
CLEAR fT 


END DEF 

DEF LIST 
CLEAR f 1 
PRINT fi, a Aes "Press Esc to stop listing” 
PRINT ia "use ‘aah if required"; 

FOR te et: yd wh -REC-} 


ae ISP _REC(CUR_REC) 


—_#— 


=Home Produce 


2300 If 2=1 THEN 2350 
2910 FOR DELAY=1 TO 50 
2320 IF INKEY$=CHR$(27) THEN 2350 
2330 NEXT DELAY 
2340 = NEXT CUR_REC 
2350 CLEAR £1 
2360 END DEF 
2370 DEF DISP_REC(REF CUR_REC) 
2380 «FOR FEL TO FIELDS” 
2390 PRINT £3,AT(F1#2)-1,215" ' 20 spaces 
2400 PRINT £3,AT(F1#2)- 121 SINFOS(CUR _REC,F1) 
2410 If INKEY$= =CHRS(27) THEN 
2420 LET Z=1 
2430 GOTO 2460 
2440 END IF 
2450 NEXT Fi 
2460 END DEF 
2470 DEF FORWARD 
2480 =o TF CUR_REC=NUM REC THEN 2500 
2490 LET CUR_REC=CUR_REC+1 
2500 END DEF 
2510 DEF BACKWARD 
2520 IF CUR_REC=1 THEN 2540 
2530 LET CUR_REC=CUR_REC-1 
2540 END DEF 
2550 DEF SAVE 
25 LET FILE$="" 
CLEAR £1 
PRINT FL,AT 1,1:"Input file name (max 12 
FOR Fei 10 12 
LOOK f£105:A 
IF A=13 THEN EXIT FOR 
IF A¢65 OR Ad122 THEN 2600 
LET FILES$=FILES&CHR$(A) 
ry £L,AT 2, 13FILESs 


CLEAR £1 

PRINT F1,AT 1,18"Is "sFILES:" okay 2" 
PRINT fLUAT 2,1s"type Y or Nes 

LOOK £105:8 

IF B=89 OR Be121 THEN 2720 

GOTO 2560 

CLEAR £1 

LET FILES=FILESQ". TXT" 

PRINT fii"Start recorder, then press any key-" 
SET REMI ON 

LOOK f105:A 

OPEN f106:"Tape:"&FILE$ ACCESS OUTPUT 

PRINT f106!FIELDS 

PRINT F106:NUM REC 

PRINT fi0e: CURTFLD 


CLOSE £10 
OPEN rhowt ta I"AFILES ACCESS QUTPUT 
FOR F=1 TO FIELDS 

PRINT FLOBITITLES(F) 
NEXT F 
FOR R=1 TO NUM REC 

FOR F=1 TO FIELDS 

re LLOGHINFOS(R,F) 


chars.)}" 


DEF SET_UP2 
PRINT AT 10,i:"Input the titles for each field:” 
FOR FLD=1 TO FIELDS 
PRINT AT LO+FLD,1:FLD; 
INPUT AT 1O+FLD,G:TI$ 
IF LEN(TI$)3=19 THEN 2940 
LET TITLES(FLD)=TI$ 
NEXT FLD 


3680 


INPUT AT 21,1,PROMPT "Are These Correct ?(y\n) "IRS 
IF UCASES(RS(t 1))="¥" THEN 3080 
IF UCASES(R$(51))="N" THEN 
CLEAR SCREEN 
GOTO 2940 
ELSE 
GOTO 3010 
END IF 
END DEF 
DEF DISP FLDS 
FOR F=f TO FIELDS 
PRINT £3,AT(F#2)-1, 1: TITLES(F); 
PRINT £3, "AT(F#2)- 1,200"%" 
NEXT F 
END DEF 
DEF SEARCH 
LET NUM=0 
CLEAR £1 
PRINT f1,AT 1,1: "Enter field to be used(0=10 & 
Azali)" 
LOOK £10535 
IF $)=49 AND S¢=57 THEN 
LET C=VAL(CHRS(S)) ' for No. entered 
IF C=O THEN LET C=10:PING 
ELSE IF S= 7 OR S=65 THEN 
ny C=-1 ' to show blanket search 


ELS 
éoT0 3180 


END IF 

IF COFIELDS THEN 3180 

CLEAR {1 

PRINT fi,AT L.i:"Enter search stringe»+(max 
19 chars.)" 


LET SEARCH$="" 
FOR F=1 TO 19 
LOOK f105+L 
IF L=16d THEN 
LET SEARCH$="" 
LET Fi 


GOTO 3300 

ELSE IF L=13 THEN 
GOTO 3470 

ELSE IF SEARCH$=CHR$(27) THEN 
GOTO 3920 ' exit routine 


END IF 
LET SEARCHS=SEARCHSACHR$(L) 
PRINT £1,AT 2,FECHRS(L); 
NEXT F 
CLEAR £1 
PRINT f1:"Is "sSEARCH$:" okay ? (y/n)}" 
LOOK fL0S#L 
If L=t2i OR L=89 THEN 3520 
GOTS 3300 
CLEAR £1 
PRINT F1,AT 1,10:"Searching" 
IF Ce-f THEN 
FOR S=1 TO NUM aa 
FOR Si=1 TO FIE 
IF POS INFOS(S, 3), SEARCH$S)}0 THEN 
LET SER(NUN)=S 
LET NUM=NUM+1 
GO0TG 3630 
END TF 
NEXT 51 
NEXT § 
ELSE IF C30 THEN 
FOR S=1 TO NUM REC 
TF POS(INFO$(S,C),SEARCH$) 30 THEN 
LET SERCNUM)= 
LET NUM=NUM+1 


19 


=Home Produce 


3690 END IF 

3700 NEXT § 

3710 END IF 

3720 so IF NUM=0 THEN 

3730 CLEAR f1 

3740 PRINT £1,AT 1,12"No record found containing 
string." 

3750 WAIT 3 

3760 GOTO 3920 

3770 ELSE 

3780 CLEAR £1 

3790 PRINT £1, 2 1, 1i"There are"sNUM:" records found." 

3800 PRINT ft'A 2,lt"Type any key to list them."; 

3810 LOOK {fOStA 

3820 FOR F=0 "D. NUM-1 

3830 LET CUR _REC=SER(F) 

3840 CALL DISP_REC(CUR_REC) 

3850 CLEAR £1 

3860 PRINT £1,AT 1,1:"Press any key to continue-Esc 

to exite" 

3870 PRINT f1:"Record"sSER(F)3" of "NUM REC; 

3880 LOOK f105:A 

3890 If A=27 THEN EXIT FOR 

3900 NEXT F 

3910 END IF 

3920 END DEF 

3930 DEF UPDATE 


3940) CLEAR £1 


3950 = PRINT £1,AT 1,1:"Press ENTER to leave field 
unaltered" 

3960 PRINT fit"Press Esc to exittErase to change field"; 

3970 = FOR Fel TO FIELDS 

3980 LET BUFFERS=INFO$(CUR_REC,F) 

3990 LET X=(F#2)-1 

4000 FOR L=21 TO 40 

4010 PRINT £3,AT X,Le"" 

4020 LOOK fi05:A 

4030 =27 THEN 4160 

4040 IF A=13 THEN EXIT FOR 

4050 IF A=164 THEN 

4060 LET L=2! 

4070 LET BUFFER$="" 

4080 PRINT £3,AT X,21:" me 

4090 GOTO 4010 

4100 END IF ; 

4110 LET BUFFERS=BUFFERS&CHR$(A) 

4120 PRINT £3,AT X,LECHRE(A) 

4130 NEXT L 

4140 LET INFOS(CUR_REC ,F)=BUFFERS 

4150 = NEXT F 

4160 END DEF 

4170 DEF SORT 

4240 STRING T$(1 TO FIELDS) #2! 


4250 CLEAR fi 
PRINT f1,AT 1,1:"Enter field to be used:" 
PRINT f1:"1 to 9 and O=10"; 
LOOK £10555 
IF $>=48 AND S<=57 THEN 
LET SF=VAL(CHR$(S) 
IF SF=0 THEN LET SF=10 


ELSE 
GOTO 4250 


END IF 

IF SFOFIELDS THEN 4250 

CLEAR £1 

PRINT £1,AT 1,1:"How many characters to be 

Considered 2" 

PRINT £1,AT 2,1:"1 to 9 (2 

LOOK £10535 

IF 93=49 AND $¢=57 THEN 
LET LE=VAL(CHR$(S)) 


IF REPLY=50 THEN 
FOR R=1 TO NUM_REC 
LPRINT "Record " 
FOR Fet TO FTELDE. 
LPRINT 


is the most reliable):"; 


4420 
4430 


4930 
4940 


4950 
4960 
4970 
4980 
4990 
2000 
9010 
3020 
3030 
3040 
3050 


IF LE=0 THEN LET LE=10 
ELSE 

GOTO 4360 
END IF 


tae fl 
NUM_REC(SO THEN PRINT £1,AT 1,172" s 
IF NUMRECS=50 THEN z sialic 
PRINT f£1,AT 1, 
these" 
ahd fi: 
END I 
LET ie NUM 
LET L=(2" IT (L060 693) )-1 
LET L=INT(L/2) 
IF Lél THEN 4740 
FOR J=1 TOL 
be! K= Keds TON STEP L 


FoR R=1 TO FIELDS 
A a aa 


NE 
IF UCASES( INFOS(I-L,SF)(L#LE))C=UCASES(TS(SF) 
(1'LE)) THEN 4680 
FOR R=1 TO FIELDS 
LET INFOS(I,R)=INFOS(I-L,R) 
NEXT R 


LET T=I-L 
IF I>L THEN 4620 
FOR R=1 TO FIELDS 
LET INFO$(I,R)=T$(R} 
NEXT R 


1:"You'd better have a cuppa while 


"records are being sorted !"s 


NEXT K 4770 PING 
NEXT J 4780 NEXT F 
GOTO 4540 4790 END IF 


LET CUR_REC=1 
TF NUM REC>10 THEN 4810 DEF DELETE_REC 

FOR F=1 10 3 4820 CLEAR f1~ 
PRINT £1,AT 1,1: "Are you sure you want to delete 
this file ? (Y/N) "3 
LOOK £105:REPLY 
IF pe Hc gee Y" THEN 5060 
PRINT £1: 
TF CURSRECSNUM REC THEN 

FOR F=1 TO FIELDS 

PI a ll 


NE 
LET CUR_REC=CUR_REC-1 
ELSE 


CLEAR ft 
PRINT £1,AT 1,1:"Please wait while files are moved 
down one place’; 
' Move other files down i place 
FOR M=CUR REC TO NUM_REC- 

FOR F=1 TO FIELDS 

LET INFO$(M,F)=INFOS(M+1 ,F) 
NEXT F 


NEXT M 

FOR F=1 TO FIELDS '! scrub last record 
LET INFOS(NUM_REC,F)="" 

NEXT F 


END IF 
LET NUM_REC=NUM_REC-1 


4800 END DEF 


5060 END DEF 
5070 DEF COPY 


5086 
5090 


3100 
5110 
3120 


5186 
cay 

5200 
5210 


END 
5220 END DEF 


CLEAR fi 

PRINT £1,AT i,i:"Type 1 to copy page or 2 to list 
all data Esc to exits": 

LOOK £10S:REPLY 

IF REPLY=27 THEN 5220 

IF REPLY=49 THEN COPY FROM £3 ! 1 


LPRINT TITLES(F);"2"3TAB(20) s INFOS(R,F) 


